home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / aurora2c.zip / PALETTE.AML < prev    next >
Text File  |  1995-04-07  |  1KB  |  34 lines
  1.  
  2. // ───────────────────────────────────────────────────────────────────
  3. // The Aurora Editor v2.0
  4. // Copyright 1993-1995 nuText Systems. All Rights Reserved Worldwide.
  5. //
  6. // Color palette installation macro
  7. // ───────────────────────────────────────────────────────────────────
  8.  
  9.   // compile time macros and function definitions
  10.   include  bootpath "define.aml"
  11.  
  12.   menu "colors"
  13.     item " &Blue and green"   "blugreen"
  14.     item " &Fluorescent"      "fluoresc"
  15.     item " &Green charcoal"   "greench"
  16.     item " &Red and blue"     "redblue"
  17.     item " &Wimbledon"        "wimbledn"
  18.   end
  19.  
  20.   palette = popup "colors" "Select a color palette to install" 37
  21.   if palette then
  22.     // backup existing color file
  23.     copyfile (bootpath "COLOR.AML") (bootpath "COLOR.OLD")
  24.     // copy color palette
  25.     if copyfile (getbootpath + "PALETTE\\" + palette + ".AML")
  26.                 (bootpath "COLOR.AML") then
  27.       // recompile the editor
  28.       send "recompile"
  29.     end
  30.   end
  31.   // destroy the menu
  32.   destroybuf "colors"
  33.  
  34.